home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
A1.bas
next >
Wrap
BASIC Source File
|
2012-02-16
|
2KB
|
72 lines
10 HGR : HCOLOR= 3
20 X% = 100:Y% = 80
22 GOSUB 198
24 X% = 108
26 GOSUB 210
28 X% = 116
30 GOSUB 198
32 X% = 124
34 GOSUB 198
36 X% = 132
38 GOSUB 210
40 X% = 140
42 GOSUB 222
100 VTAB (21): PRINT "Wrong, this is what you would see. Please wait and try again."
110 FOR I = 0 TO 1500: NEXT : CALL 62450
120 PRINT CHR$(4);"run q10"
150 END
198 REM P
200 HPLOT X%,Y% -4 TO X%,Y% -5
202 HPLOT X% +1,Y% -6 TO X% +4,Y% -6
204 HPLOT X% +1,Y% -3 TO X% +4,Y% -3
206 HPLOT X% +4,Y% TO X% +4,Y% -6
208 RETURN
210 REM E
212 HPLOT X%,Y% TO X% +4,Y%
214 HPLOT X% +1,Y% -3 TO X% +4,Y% -3
216 HPLOT X%,Y% -6 TO X% +4,Y% -6
218 HPLOT X% +4,Y% TO X% +4,Y% -6
220 RETURN
222 REM R
224 HPLOT X% +4,Y% TO X% +4,Y% -6
226 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
228 HPLOT X% +1,Y% -3 TO X% +3,Y% -3
230 HPLOT X%,Y% -4 TO X%,Y% -5
232 HPLOT X%,Y%
234 HPLOT X% +1,Y% -1
236 HPLOT X% +2,Y% -2
238 RETURN
240 REM M
242 HPLOT X%,Y% TO X%,Y% -6
244 HPLOT X% +1,Y% -5
246 HPLOT X% +2,Y% -3 TO X% +2,Y% -4
248 HPLOT X% +3,Y% -5
250 HPLOT X% +4,Y% TO X% +4,Y% -6
252 RETURN
254 REM A
256 HPLOT X%,Y% TO X%,Y% -4
258 HPLOT X% +4,Y% TO X% +4,Y% -4
260 HPLOT X% +1,Y% -2 TO X% +3,Y% -2
262 HPLOT X% +1,Y% -5
264 HPLOT X% +2,Y% -6
266 HPLOT X% +3,Y% -5
268 RETURN
270 REM D
272 HPLOT X%,Y% -1 TO X%,Y% -5
274 HPLOT X% +1,Y% TO X% +3,Y%
276 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
278 HPLOT X% +4,Y% TO X% +4,Y% -6
280 RETURN
282 REM S
284 HPLOT X%,Y% -1 TO X%,Y% -2
286 HPLOT X%,Y% -5
288 HPLOT X% +1,Y% TO X% +3,Y%
290 HPLOT X% +1,Y% -3 TO X% +3,Y% -3
292 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
294 HPLOT X% +4,Y% -5 TO X% +4,Y% -4
296 HPLOT X% +4,Y% -1
298 RETURN
300 REM T
302 HPLOT X%,Y% -6 TO X% +4,Y% -6
304 HPLOT X% +2,Y% TO X% +2,Y% -5
306 RETURN